-- card: 34228 from stack: in.5
-- bmap block id: 7414
-- flags: 0000
-- background id: 3858
-- name: ApplicationList
----- HyperTalk script -----
on CloseCard
  put empty into cd fld "App list"
  set the scroll of cd fld "App list" to 0
  pass closeCard
end CloseCard

on HideObjects
  hide cd fld "App list"
  hide cd btn "try it!"
end HideObjects

on ShowObjects
  show cd fld "App list"
  show cd btn "try it!"
end ShowObjects


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=19 top=117 right=288 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: App list


-- part 2 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=82 top=292 right=326 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Try It!
----- HyperTalk script -----
on mouseUp
  global errGlobal
  put ApplicationList("noDialog:errGlobal") into appInfo
  if errGlobal ≠ empty then
    answer "Error: “" & errGlobal & "”"
    put empty into errGlobal
  else
    put appInfo into cd fld "App list"
  end if
end mouseUp




-- part contents for background part 38
----- text -----
2/50

-- part contents for background part 20
----- text -----
     An XFCN which returns a list of all programs running under MultiFinder, their partition sizes, and application signatures (creators).  This list can include applications,  Finder, and so called "faceless background processes" such as Backgrounder and DA Handler.  Under mono Finder the XFCN will return an error message. 
     The list returned is carraige return delimited, each line contains the application/process name, a space, the actual partition size in bytes (always the second to last word on the line), a space, and the four character file type string (always the last word on the line).   We decided to format the XFCN's result with spaces rather than commas because Macintosh file names may contain commas. 
     The partition size number seems to have 16 bytes more than the number reported in the "About Finder" dialog ie: 
 (number reported by XFCN - 16) div 1024 = number reported in "About Finder".

     Calling syntax : ApplicationList(«"noDialog:"errorGlobal»)